(let ((r (eval-program (read-program "(+ 50 50)"))))
  (= r 100))
